library("unsupervisedMicroarray")
source("./generatePReducersList.R")
source("./generateReducersList.R")
source("./generateRCComputerList.R")
source("./generateNParamAlgList.R")
data(brain)
data(leukemia)
data(carcinoma)
data(colon)

reducers <- generatePReducersList()
clusts <-generateNParamAlgList()
comps <- generateRCComputerList (reducers,clusts)


#score
 indList <-list(new("HARandEClusterScore"), new("NVIEClusterScore"),new("BCEClusterScore"),
 		new("IIClusterScore"),new("StdbwIClusterScore"),new("SilhIClusterScore"))
#indList <-list(new("HARandEClusterScore"))
#indList <-list(new("HARandEClusterScore"), new("NVIEClusterScore"),new("BCEClusterScore"))
indListLen <-length(indList)
#final result
pTester <- new("SumBFrameworkFinalResult")
#bootstraped set
nboots <-5
rboots <- new("RowBootstrapedSet",list(X=brain$X,Y=brain$Y),nboots)
#sets
setList <-list(
		brain#,leukemia, carcinoma, colon
)

parSeq = seq(1,10,1)
#parSeq = c(1,3)
for(ind in 1:indListLen){
	dirName <- paste("./ParamClustDim",class(indList[[ind]]),sep="")
	runner <-new("DimOneParamTestRunner",setList=setList, compList=comps, bootstraperPrototype=rboots,
			finalResultComp=pTester, scoreObj=indList[[ind]],
			resultsDirectory=dirName, paramSeq=parSeq)
	res <- runTest(runner)
}